Comment.

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 7c532de0330d0c824d1c820af832f464c19b2723..ffa19be50b2b546fef144582f5cde227ce7a7d49 100644 (file)
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -167,6 +167,8 @@ Strips out default port numbers, etc."
          type (url-type data))
     (if (member type '("www" "about" "mailto" "info"))
        (setq retval url)
+      ;; FIXME all this does, and all this function seems to do in
+      ;; most cases, is remove any trailing "#anchor" part of a url.
       (setf (url-target data) nil)
       (setq retval (url-recreate-url data)))
     retval))